home *** CD-ROM | disk | FTP | other *** search
/ Introducing the New Way to Shop From Home / Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso / pc / MacStepbyStep.dxr / Internal_63_pizza1 increase quantity.ls < prev    next >
Encoding:
Text File  |  2003-01-01  |  295 b   |  14 lines
  1. on mouseDown
  2.   global gQuantity1, gList1Prod, gList1Quant
  3.   if gList1Prod = string("Tate & Lyle Granulated Sugar") then
  4.     nothing()
  5.   else
  6.     if gList1Quant = 0 then
  7.       nothing()
  8.     else
  9.       gQuantity1 = gQuantity1 + 1
  10.       member(69).text = string(gQuantity1)
  11.     end if
  12.   end if
  13. end
  14.